(url-configuration-directory): Use ~/.emacs.d if possible.

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 81d2d39c281e5658aa607776baed06b7dba39f6b..296b2b9f868b88e7fbdab78311b9284e8ecbc97c 100644 (file)
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -48,7 +48,11 @@
 
 ;; Fixme: customize? convert-standard-filename?
 ;;;###autoload
-(defvar url-configuration-directory "~/.url")
+(defvar url-configuration-directory
+  (cond
+   ((file-directory-p "~/.url") "~/.url")
+   ((file-directory-p "~/.emacs.d") "~/.emacs.d/url")
+   (t "~/.url")))
 
 (defun url-do-setup ()
   "Setup the url package.